-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy path9.2 Derivative integration rules.nb
More file actions
4896 lines (4768 loc) · 203 KB
/
9.2 Derivative integration rules.nb
File metadata and controls
4896 lines (4768 loc) · 203 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 202576, 4887]
NotebookOptionsPosition[ 195512, 4700]
NotebookOutlinePosition[ 197091, 4752]
CellTagsIndexPosition[ 197048, 4749]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[StyleBox["Rules for integrands involving partial \
derivatives",
FontFamily->"Arial"]], "None"]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9,
3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9,
3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9,
3.5450834895895033`*^9}, {3.5454961263762493`*^9,
3.5454961321462574`*^9}, {3.5454963863166127`*^9,
3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9,
3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9,
3.5462145601073203`*^9}, {3.5463149785974817`*^9,
3.5463149794195285`*^9}, {3.5488738437683954`*^9,
3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5505952613798075`*^9,
3.5505952630869055`*^9}, {3.5535321133435373`*^9,
3.5535321173537664`*^9}, {3.5536175341411576`*^9,
3.5536175352411594`*^9}, {3.55396599671187*^9, 3.55396599862998*^9}, {
3.560190530310161*^9, 3.560190628512334*^9}, {3.5602162723838596`*^9,
3.5602162793138695`*^9}, {3.5606249190913877`*^9, 3.560624924321395*^9}, {
3.5617663419995623`*^9, 3.5617663705796027`*^9}, {3.5617666456099873`*^9,
3.561766656350003*^9}, {3.562107691486154*^9, 3.5621077390350375`*^9}, {
3.5621080165751247`*^9, 3.5621080185719285`*^9}, {3.5621081511877613`*^9,
3.5621081511877613`*^9}, {3.5633407304210925`*^9, 3.563340730891093*^9}, {
3.567630514627001*^9, 3.567630517123005*^9}, {3.5687565582479997`*^9,
3.5687565700380163`*^9}, {3.5713337507132535`*^9,
3.5713337630632706`*^9}, {3.5750524169440975`*^9,
3.5750524198301024`*^9}, {3.5761234584762726`*^9, 3.576123473196294*^9}},
TextAlignment->Center,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{Cell[TextData[StyleBox["1.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{"u", " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9,
3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9,
3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9,
3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9,
3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9,
3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9,
3.574879760588297*^9}, {3.574884743531925*^9, 3.574884743991926*^9}, {
3.574887233955412*^9, 3.5748872341654124`*^9}, {3.5921650280396333`*^9,
3.5921650307496367`*^9}, {3.5921650760597005`*^9, 3.5921650896197195`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}], " ",
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
3.5193207456364026`*^9}, {3.5193282921909866`*^9,
3.5193283252786446`*^9}, {3.5193283634207115`*^9,
3.5193283676639194`*^9}, {3.5193286295571795`*^9,
3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9,
3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9,
3.5322096395437746`*^9}, 3.532209675733825*^9, 3.5750526379028854`*^9,
3.575052688353374*^9, 3.5750527239526367`*^9, {3.575054405803991*^9,
3.575054415008007*^9}, {3.592162347905881*^9, 3.592162348035881*^9},
3.5921650776197023`*^9},
FontSize->12,
FontWeight->"Bold"],
Cell["Reference: G&R 2.02.4", "Subsubsection",
CellChangeTimes->{
3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9},
3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9},
3.496528844063812*^9, 3.57505253796911*^9}],
Cell["Rule:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9}],
Cell[BoxData[
RowBox[{"\[Integral]",
RowBox[{
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, {
3.5750525805103846`*^9, 3.575052590385202*^9}, {3.5750527335466537`*^9,
3.5750527437646713`*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Derivative", "[", "n_", "]"}], "[", "f_", "]"}], "[", "x_",
"]"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Derivative", "[",
RowBox[{"n", "-", "1"}], "]"}], "[", "f", "]"}], "[", "x", "]"}], " ", "/;",
"\n",
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"f", ",", "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
3.4965287890937347`*^9, {3.575050991669194*^9, 3.5750509927767963`*^9},
3.575052521916682*^9, 3.575052764107107*^9, 3.5921621798656454`*^9,
3.5921627639464636`*^9},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["2.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9,
3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9,
3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9,
3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9,
3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9,
3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9,
3.574879760588297*^9}, {3.574884743531925*^9, 3.574884743991926*^9}, {
3.574887233955412*^9, 3.5748872341654124`*^9}, {3.5921650280396333`*^9,
3.5921650307496367`*^9}, {3.5921650760597005`*^9,
3.5921650896197195`*^9}, {3.5921656706805325`*^9, 3.59216568293055*^9}, {
3.5921667839445925`*^9, 3.5921667843245926`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
3.5193207456364026`*^9}, {3.5193282921909866`*^9,
3.5193283252786446`*^9}, {3.5193283634207115`*^9,
3.5193283676639194`*^9}, {3.5193286295571795`*^9,
3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9,
3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9,
3.5322096395437746`*^9}, 3.532209675733825*^9, 3.5750526379028854`*^9,
3.575053077680058*^9, 3.575053280230814*^9, {3.575054407067593*^9,
3.5750544179720125`*^9}, {3.5921623642359037`*^9, 3.5921623644259043`*^9},
3.5921643715887136`*^9, {3.5921644733188567`*^9, 3.5921644759688606`*^9},
3.59216470403918*^9, {3.592164921499484*^9, 3.5921649253694897`*^9},
3.592165079109705*^9, 3.5921651674598284`*^9, {3.592165684400552*^9,
3.5921656941205654`*^9}, {3.592166785884595*^9, 3.5921667862145953`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.592164931319498*^9, 3.5921649396295094`*^9}, {
3.592165407370164*^9, 3.5921654166001773`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.592164931319498*^9, 3.5921649396295094`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"]}]}], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}]}]}], "-",
RowBox[{"b", " ", "p", " ",
RowBox[{"Log", "[", "F", "]"}], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(",
RowBox[{"n", "-", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, {
3.5750525805103846`*^9, 3.575052590385202*^9}, {3.575052968916667*^9,
3.5750530315507774`*^9}, {3.5750531525913897`*^9, 3.57505316982942*^9},
3.5750532221987123`*^9, {3.592164383378731*^9, 3.592164390608741*^9}, {
3.5921645287289343`*^9, 3.5921645360189447`*^9}, {3.5921647061291823`*^9,
3.5921647103791885`*^9}, {3.5921651682898293`*^9, 3.592165187089856*^9}, {
3.592166788404598*^9, 3.5921667935246058`*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"c_.", "*",
RowBox[{"F_", "^",
RowBox[{"(",
RowBox[{"a_.", "+",
RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], ")"}], "^", "p_."}], "*",
RowBox[{
RowBox[{
RowBox[{"Derivative", "[", "n_", "]"}], "[", "f_", "]"}], "[", "x_",
"]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"c", "*",
RowBox[{"F", "^",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*", "x"}]}], ")"}]}]}], ")"}], "^", "p"}], "*",
RowBox[{
RowBox[{
RowBox[{"Derivative", "[",
RowBox[{"n", "-", "1"}], "]"}], "[", "f", "]"}], "[", "x", "]"}]}],
" ", "-", " ",
RowBox[{"b", "*", "p", "*",
RowBox[{"Log", "[", "F", "]"}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"c", "*",
RowBox[{"F", "^",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*", "x"}]}], ")"}]}]}], ")"}], "^", "p"}], "*",
RowBox[{
RowBox[{
RowBox[{"Derivative", "[",
RowBox[{"n", "-", "1"}], "]"}], "[", "f", "]"}], "[", "x", "]"}]}],
",", "x"}], "]"}]}]}], " ", "/;", "\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "f", ",", "F", ",", "p"}], "}"}],
",", "x"}], "]"}], " ", "&&", " ",
RowBox[{"IGtQ", "[",
RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
3.4965287890937347`*^9, {3.575050991669194*^9, 3.5750509927767963`*^9},
3.575052521916682*^9, 3.5750528741497*^9, {3.575052942696221*^9,
3.5750529498254337`*^9}, 3.5750529954679136`*^9, 3.575053235895536*^9,
3.5921622373257265`*^9, 3.592162767136468*^9, {3.5921645525189676`*^9,
3.592164582269009*^9}, {3.5921646447790966`*^9, 3.5921646675591283`*^9}, {
3.5921647531392484`*^9, 3.592164778529284*^9}, {3.592164815689336*^9,
3.592164829619355*^9}, {3.592165174549838*^9, 3.592165181459848*^9},
3.5921659253208895`*^9, {3.5921668097246284`*^9, 3.592166827834654*^9},
3.7154744143635387`*^9},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["2:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
3.5193207456364026`*^9}, {3.5193282921909866`*^9,
3.5193283252786446`*^9}, {3.5193283634207115`*^9,
3.5193283676639194`*^9}, {3.5193286295571795`*^9,
3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9,
3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9,
3.5322096395437746`*^9}, 3.532209675733825*^9, 3.5750526379028854`*^9,
3.575053077680058*^9, 3.575053280230814*^9, {3.575054407067593*^9,
3.5750544179720125`*^9}, {3.5921623642359037`*^9, 3.5921623644259043`*^9},
3.5921643715887136`*^9, {3.5921644733188567`*^9, 3.5921644759688606`*^9},
3.59216470403918*^9, {3.592164921499484*^9, 3.5921649253694897`*^9},
3.592165079109705*^9, 3.5921651674598284`*^9, {3.592165684400552*^9,
3.592165706730583*^9}, 3.5921668553046923`*^9},
FontSize->12,
FontWeight->"Bold"],
Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.592164931319498*^9, 3.5921649396295094`*^9}, {
3.592165407370164*^9, 3.5921654166001773`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.592164931319498*^9, 3.5921649396295094`*^9}, {
3.5921658433207746`*^9, 3.5921658433207746`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]",
RowBox[{"x", " ", "\[LongRightArrow]", " ",
FractionBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}]}],
RowBox[{"b", " ", "p", " ",
RowBox[{"Log", "[", "F", "]"}]}]]}]}]}]}], "-",
RowBox[{
FractionBox["1",
RowBox[{"b", " ", "p", " ",
RowBox[{"Log", "[", "F", "]"}]}]],
RowBox[{"\[Integral]",
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"c", " ",
SuperscriptBox["F",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}]]}], ")"}], "p"], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(",
RowBox[{"n", "+", "1"}], ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9},
3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9,
3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9,
3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, {
3.5750525805103846`*^9, 3.575052590385202*^9}, {3.575052968916667*^9,
3.5750530315507774`*^9}, {3.5750531525913897`*^9, 3.57505316982942*^9},
3.5750532221987123`*^9, {3.592164383378731*^9, 3.592164390608741*^9}, {
3.5921645287289343`*^9, 3.5921645360189447`*^9}, {3.5921647061291823`*^9,
3.5921647103791885`*^9}, {3.5921651682898293`*^9, 3.592165187089856*^9}, {
3.592165727700613*^9, 3.592165825190749*^9}, 3.5921663155514355`*^9, {
3.592166857254695*^9, 3.5921668620347013`*^9}},
TextAlignment->Center,
FontSize->12,
FontWeight->"Bold"],
Cell["Program code:", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9,
3.492805165713872*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"c_.", "*",
RowBox[{"F_", "^",
RowBox[{"(",
RowBox[{"a_.", "+",
RowBox[{"b_.", "*", "x_"}]}], ")"}]}]}], ")"}], "^", "p_."}], "*",
RowBox[{
RowBox[{
RowBox[{"Derivative", "[", "n_", "]"}], "[", "f_", "]"}], "[", "x_",
"]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", " ",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"c", "*",
RowBox[{"F", "^",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*", "x"}]}], ")"}]}]}], ")"}], "^", "p"}], "*",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Derivative", "[", "n", "]"}], "[", "f", "]"}], "[", "x",
"]"}], "/",
RowBox[{"(",
RowBox[{"b", "*", "p", "*",
RowBox[{"Log", "[", "F", "]"}]}], ")"}]}]}], " ", "-", " ",
RowBox[{
RowBox[{"1", "/",
RowBox[{"(",
RowBox[{"b", "*", "p", "*",
RowBox[{"Log", "[", "F", "]"}]}], ")"}]}], "*",
RowBox[{"Int", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{"c", "*",
RowBox[{"F", "^",
RowBox[{"(",
RowBox[{"a", "+",
RowBox[{"b", "*", "x"}]}], ")"}]}]}], ")"}], "^", "p"}], "*",
RowBox[{
RowBox[{
RowBox[{"Derivative", "[",
RowBox[{"n", "+", "1"}], "]"}], "[", "f", "]"}], "[", "x", "]"}]}],
",", "x"}], "]"}]}]}], " ", "/;", "\n",
RowBox[{
RowBox[{"FreeQ", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c", ",", "f", ",", "F", ",", "p"}], "}"}],
",", "x"}], "]"}], " ", "&&", " ",
RowBox[{"ILtQ", "[",
RowBox[{"n", ",", "0"}], "]"}]}]}]}]], "Code",
CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9,
3.4965287890937347`*^9, {3.575050991669194*^9, 3.5750509927767963`*^9},
3.575052521916682*^9, 3.5750528741497*^9, {3.575052942696221*^9,
3.5750529498254337`*^9}, 3.5750529954679136`*^9, 3.575053235895536*^9,
3.5921622373257265`*^9, 3.592162767136468*^9, {3.5921645525189676`*^9,
3.592164582269009*^9}, {3.5921646447790966`*^9, 3.5921646675591283`*^9}, {
3.5921647531392484`*^9, 3.592164778529284*^9}, {3.592164815689336*^9,
3.592164829619355*^9}, {3.592165174549838*^9, 3.592165181459848*^9}, {
3.5921658455507774`*^9, 3.5921659275708923`*^9}, {3.5921668728447165`*^9,
3.5921668944347467`*^9}, 3.715474433459631*^9},
Background->GrayLevel[0.85]],
Cell["", "Subsubsection",
CellDingbat->None,
CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t",
RowBox[{Cell[TextData[StyleBox["3.",
FontFamily->"Arial"]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}], "]"}], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9,
3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9},
3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9,
3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9,
3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9,
3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9,
3.5291962665099535`*^9}, {3.5291997050223927`*^9,
3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9,
3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9,
3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9,
3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9,
3.5488738855784535`*^9, {3.548885292189272*^9, 3.5488853011492844`*^9}, {
3.5488862802206554`*^9, 3.5488862887906675`*^9}, {3.5488873344221315`*^9,
3.5488873405921392`*^9}, {3.548887765702735*^9, 3.548887777862752*^9}, {
3.5494211382132635`*^9, 3.549421138353264*^9}, {3.5532230040978823`*^9,
3.5532230095731955`*^9}, 3.5589035854423523`*^9, 3.558904571603733*^9, {
3.5729232863509145`*^9, 3.5729232864913144`*^9}, {3.574364442189604*^9,
3.574364468839641*^9}, 3.57487965984332*^9, {3.5748797599018955`*^9,
3.574879760588297*^9}, {3.574884743531925*^9, 3.574884743991926*^9}, {
3.574887233955412*^9, 3.5748872341654124`*^9}, {3.5921650280396333`*^9,
3.5921650307496367`*^9}, {3.5921650760597005`*^9,
3.5921650896197195`*^9}, {3.5921656706805325`*^9, 3.59216568293055*^9}, {
3.5921660446810565`*^9, 3.592166051531066*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\t\t",
RowBox[{Cell[TextData[StyleBox["1:",
FontFamily->"Arial",
FontColor->RGBColor[1, 0, 0]]], "None"], " ",
RowBox[{"\[Integral]",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"a", "+",
RowBox[{"b", " ", "x"}]}], "]"}], " ",
RowBox[{
SuperscriptBox["f",
TagBox[
RowBox[{"(", "n", ")"}],
Derivative],
MultilineFunction->None], "[", "x", "]"}],
RowBox[{"\[DifferentialD]", "x"}], " ",
StyleBox["when",
FontFamily->"Arial",
FontWeight->"Plain"],
StyleBox[" ",
FontFamily->"Arial",
FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]],
"None"]}]}]}]}]], "Subsubtitle",
CellDingbat->None,
CellChangeTimes->{
3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9,
3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9,
3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9},
3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9},
3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9,
3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9,
3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9,
3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9,
3.5193207456364026`*^9}, {3.5193282921909866`*^9,
3.5193283252786446`*^9}, {3.5193283634207115`*^9,
3.5193283676639194`*^9}, {3.5193286295571795`*^9,
3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9,
3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9,
3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295295115325623`*^9,
3.5295295118445625`*^9}, 3.5322095331836257`*^9, {3.532209639313774*^9,
3.5322096395437746`*^9}, 3.532209675733825*^9, 3.5750526379028854`*^9,
3.575053077680058*^9, 3.575053280230814*^9, {3.575054407067593*^9,
3.5750544179720125`*^9}, {3.5921623642359037`*^9, 3.5921623644259043`*^9},
3.5921643715887136`*^9, {3.5921644733188567`*^9, 3.5921644759688606`*^9},
3.59216470403918*^9, {3.592164921499484*^9, 3.5921649253694897`*^9},
3.592165079109705*^9, 3.5921651674598284`*^9, {3.5921654557902317`*^9,
3.592165475020259*^9}, {3.592166055121071*^9, 3.5921660565610733`*^9}},
FontSize->12,
FontWeight->"Bold"],
Cell["\<\
Derivation: Integration by parts\
\>", "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.592164931319498*^9, 3.5921649396295094`*^9}, {
3.592165407370164*^9, 3.5921654166001773`*^9}}],
Cell[TextData[{
"Rule: If ",
Cell[BoxData[
RowBox[{"n", "\[Element]",
SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
", then"
}], "Subsubsection",
CellDingbat->"\[FilledSmallSquare]",
CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9,
3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9,
3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9,
3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9,
3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9},
3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9,
3.496528833243797*^9, {3.592164931319498*^9, 3.5921649396295094`*^9}}],